Nguyễn Lê Phước Thịnh
ĐÁP ÁN VÒNG 3 CUỘC THI TIN HỌC LẦN 3Câu 1(2 điểm) Bài làm của bạn Nguyễn Khánh Tài Huyvar a,b,tg1,tg2,UC: longint;    f1,f2: text;function tguoc(x: longint): longint;  var i,tg: longint;    begin      tg:0;      for i:1 to trunc(sqrt(x)) do        if x mod i 0 then          begin            tg:tg+i;            tg:tg+x div i;            if i*ix then tg:tg-i;          end;      exit(tg);    end;function UCLN(a,b: longint): longint;    begin      if a0 then exit(b)      else UCLN:UCLN(b mod a,a); ...
Đọc tiếp

Những câu hỏi liên quan
Lily
Xem chi tiết
Ngô Bá Hùng
17 tháng 4 2023 lúc 20:35

câu 1:

Var s, i: longint;

Begin

   S := 0;  //Thiếu dấu chấm phẩy ở đey

   i := 1;

   while s <= 5 do //Sửa lại điều kiện dừng vòng lặp và cộng thêm i vào s ở bên trong vòng lặp

   begin

      s := s + i;

      i := i + 1;

   end;

   write('s = ', s);

end.

câu 2:

Var p, i, n: real;

Begin

   Readln(n);

   p := 1;

   for i := 1 to n do //Sửa lại phần khai báo biến lặp và dấu bằng

   begin

      p := p * i / (i + 1);

   end;

   write('p = ', p);

end.

câu 3:

Var a: array [1..50] of longint;

n, s, i: real; //Thiếu dấu chấm phẩy ở đey

Begin

   Readln(n);

   For i := 1 to n do

   begin

      Readln(a[i]); //Sửa lại cách truy cập vào ptu của mảng

   end;

   S := 0;

   For i := 1 to n do

   begin

      S := S + a[i];

   end;

   write('s = ', S); //Sửa lại tên biến trong write

end.

Bình luận (0)
Gãy Cánh GST
Xem chi tiết
Kiều Vũ Linh
8 tháng 5 2023 lúc 20:11

Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem

Bình luận (0)
Manh
8 tháng 5 2023 lúc 20:12

Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()

Bình luận (0)
Hoa Ngô Bùi Mai
Xem chi tiết
nguyễn an phát
Xem chi tiết
nguyễn an phát
11 tháng 4 2021 lúc 12:09

program bai_3;
uses crt;
var f,g:text;
a1,a2,b1,b2,x1,x2,i,dem,luu:longint;
dtnn,dt1,dt2,dt3,dt4,dt5,dt6:real;
x3:array[1..1000]of longint;
dt:array[1..1000]of real;
begin
  clrscr;
  assign(f,'CHUNHAT.inp');reset(f);
  readln(f,a1,b1);
  close(f);
  a2:=a1;b2:=b1;dt1:=a1*b1;dt2:=dt1/2;
  x1:=0;i:=0;dem:=0;
  while x1<b1 do
  begin
    dt3:=a2*x1/2;
    dt4:=(b2-x1)*x1/2;
    dt5:=b2*(a2-x1)/2;
    dt6:=dt1-dt3-dt4-dt5;
    dt[i]:=dt6;x3[i]:=x1;
    x1:=x1+1;i:=i+1;dem:=dem+1;
  end;
  dtnn:=dt[1];
  for i:=1 to dem do
  begin
    if (dtnn>dt[i])and(dt[i]<>0) then dtnn:=dt[i];
  end;
  x1:=0;
  for i:=1 to dem do
  if dtnn=dt[i] then luu:=i;
  assign(g,'CHUNHAT.out');rewrite(g);
  writeln(g,dt2:4:1);
  writeln(g,x1);
  writeln(g,dtnn:4:1);
  writeln(g,x3[luu]);
  close(g);
end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
Xem chi tiết
Nguyễn Trần Thành Đạt
15 tháng 7 2021 lúc 1:25

Nhìn dài quá

Bình luận (4)
HT2k02
15 tháng 7 2021 lúc 6:11

dùng cả vector lận, hơi căng

 

Bình luận (0)
Ħäńᾑïě🧡♏
15 tháng 7 2021 lúc 6:24

dài quá oho

Bình luận (0)
•๖ۣۜNHa•
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:03

Bạn sửa chỗ integer thành real nhé

Bình luận (0)
•๖ۣۜNHa•
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2021 lúc 11:53

cái chố a,b là real nhé  bạn

Bình luận (0)
Ho Truong Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 4 2022 lúc 14:53

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
Ho Truong Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 4 2022 lúc 14:53

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)